source("../covidcomp_lib.R")
joined <- readJoinJhuData()
comp_data <- joined %>% genCompData()
comp_data %>% plotComps()
join_wb_country <- function(df, join_data, by=c("Country/Region"="country")) {
df %>% left_join(
join_data %>%
mutate(country = case_when(
grepl("Bahamas", country) ~ "The Bahamas",
grepl("Gambia", country) ~ "Gambia, The",
grepl("Czech", country) ~ "Czechia",
grepl("Iran", country) ~ "Iran",
grepl("Ivoire", country) ~ "Cote d'Ivoire",
grepl("Brunei", country) ~ "Brunei",
grepl("Republic of Korea", country) ~ "Korea, South",
grepl("Korea, Rep.", country) ~ "Korea, South",
grepl("United Kingdom of", country) ~ "United Kingdom",
grepl("United States", country) ~ "US",
grepl("Viet", country) ~ "Vietnam",
grepl("Russia", country) ~ "Russia",
grepl("Bolivia", country) ~ "Bolivia",
grepl("Venezuela", country) ~ "Venezuela",
grepl("Tanzania", country) ~ "Tanzania",
grepl("Macedonia", country) ~ "North Macedonia",
grepl("Moldova", country) ~ "Moldova",
grepl("Egypt", country) ~ "Egypt",
grepl("Kyrgyz", country) ~ "Kyrgyzstan",
grepl("Slovak", country) ~ "Slovakia",
grepl("Vincent", country) ~ "Saint Vincent and the Grenadines",
grepl("Lucia", country) ~ "Saint Lucia",
grepl("Martin", country) ~ "Martinique",
# careful with Congo
country == "Democratic Republic of the Congo" |
country == "Congo, Dem. Rep." ~ "Congo (Kinshasa)",
country == "Congo" | country == "Congo, Rep." ~ "Congo (Brazzaville)",
TRUE ~ country)),
by = by)
}
World bank data looks best. Only two years old.
library(wbstats)
demo_data <- joined %>%
group_by(`Country/Region`) %>%
summarise_at(vars(confirmed, deaths, recovered), max) %>%
join_country(
wb(indicator = "SP.POP.TOTL", startdate = 2018, enddate = 2018) %>%
rename(population = value) %>%
select(country, population)) %>%
mutate(population = case_when(
`Country/Region` == "Taiwan*" ~ 23780452,
`Country/Region` == "Cruise Ship" ~ 3711,
TRUE ~ population)) %>%
join_country(
wb(indicator = "SP.POP.65UP.TO.ZS", startdate = 2018, enddate = 2018) %>%
rename(pct_over_65 = value) %>%
select(country, pct_over_65)) %>%
mutate(confirmed_pct = confirmed * 100 / population,
deaths_pct = deaths * 100 / population,
recovered_pct = recovered * 100 / population) %>%
ungroup()
demo_data %>% arrange(desc(deaths_pct), desc(deaths))
demo_data %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
head(15) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(confirmed_pct, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2)
demo_data %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
head(15) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(pct_over_65, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2)
demo_data %>%
filter(!`Country/Region` %in% c("Cruise Ship", "San Marino", "Martinique")) %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
head(15) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(confirmed_pct, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2)
demo_data %>%
filter(!`Country/Region` %in% c("Cruise Ship", "San Marino", "Martinique")) %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
head(15) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(pct_over_65, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2)
demo_data %>%
filter(!`Country/Region` %in% c("Cruise Ship", "San Marino", "Martinique",
"Italy")) %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
head(15) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(pct_over_65, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2)
demo_data %>%
filter(!`Country/Region` %in% c("Cruise Ship", "San Marino", "Martinique")) %>%
arrange(desc(deaths_pct), desc(deaths)) %>%
mutate(`Country/Region` = reorder(`Country/Region`, desc(deaths_pct))) %>%
ggplot(aes(pct_over_65, deaths_pct)) +
geom_point(aes(color = `Country/Region`)) +
geom_line(stat = "smooth", method = "lm", alpha = 0.2) +
theme(legend.position = "none")
library(covid19us)
get_states_daily()
state_comp_data <- state_data %>%
genCompData(geo_level = "Province/State", min_total = 2)
state_comp_data %>% plotComps()
#library(rvest)
#library(magrittr)
#library(jsonlite)
(state_tests <- url("https://covidtracking.com/api/states/daily") %>%
jsonlite::fromJSON() %>%
mutate_at(vars(date), ymd))
state_tests %>% select(-total) %>%
group_by(state) %>%
summarise(
positive_test_rate = sum(positive)/((sum(positive) + sum(negative)))) %>%
arrange(desc(positive_test_rate))
state_tests %>% select(-total) %>%
group_by(state) %>%
gather(stat, value, -date, -state) %>%
mutate_at(vars(value), as.numeric) %>%
ggplot(aes(date, value, fill = stat)) +
geom_bar(stat = "identity") +
facet_grid(vars(state), scales = "free_y")
states <- state_data %>%
left_join(state_abb_map, by = c("Province/State" = "name")) %>%
left_join(state_tests %>%
rename_at(vars(-date, -state), list(~ paste0(., "_tests"))),
by = c("abb" = "state", "date"))
source("../covidcomp_lib.R")
states %>% select(-abb, -dateChecked_tests) %>%
genCompData(geo_level = "Province/State", min_total = 2) %>%
plotComps(min_total = 2, smooth_plots = TRUE, scale_to_fit = TRUE)
jhu <- fetchPrepJhuData()
source("../covidcomp_lib.R")
p <- fetchPrepJhuData() %>%
genCompData() %>%
filter(location != "San Marino") %>%
plotComps()
suppressWarnings(print(p))
source("../covidcomp_lib.R")
covtrack <- fetchPrepCovTrackData()
p <- covtrack %>% genCompData(geo_level = "state", min_stat = "death", min_thresh = 1) %>%
plotComps()
suppressWarnings(print(p))
library(jsonlite)
cds_data <- jsonlite::fromJSON("https://coronadatascraper.com/timeseries-byLocation.json")
names(cds_data)
[1] "THA"
[2] "JPN"
[3] "SGP"
[4] "NPL"
[5] "MYS"
[6] "New South Wales, AUS"
[7] "Victoria, AUS"
[8] "Queensland, AUS"
[9] "KHM"
[10] "LKA"
[11] "DEU"
[12] "FIN"
[13] "ARE"
[14] "PHL"
[15] "IND"
[16] "SWE"
[17] "ESP"
[18] "South Australia, AUS"
[19] "BEL"
[20] "EGY"
[21] "LBN"
[22] "IRQ"
[23] "OMN"
[24] "AFG"
[25] "BHR"
[26] "KWT"
[27] "DZA"
[28] "HRV"
[29] "CHE"
[30] "AUT"
[31] "ISR"
[32] "PAK"
[33] "BRA"
[34] "GEO"
[35] "GRC"
[36] "MKD"
[37] "NOR"
[38] "ROU"
[39] "EST"
[40] "NLD"
[41] "SMR"
[42] "BLR"
[43] "ISL"
[44] "LTU"
[45] "MEX"
[46] "NZL"
[47] "NGA"
[48] "Western Australia, AUS"
[49] "IRL"
[50] "LUX"
[51] "MCO"
[52] "QAT"
[53] "ECU"
[54] "AZE"
[55] "ARM"
[56] "DOM"
[57] "IDN"
[58] "PRT"
[59] "AND"
[60] "Tasmania, AUS"
[61] "LVA"
[62] "MAR"
[63] "SAU"
[64] "SEN"
[65] "ARG"
[66] "CHL"
[67] "JOR"
[68] "UKR"
[69] "HUN"
[70] "Northern Territory, AUS"
[71] "LIE"
[72] "POL"
[73] "TUN"
[74] "BIH"
[75] "SVN"
[76] "ZAF"
[77] "BTN"
[78] "CMR"
[79] "COL"
[80] "CRI"
[81] "PER"
[82] "SRB"
[83] "SVK"
[84] "TGO"
[85] "GUF"
[86] "MLT"
[87] "MTQ"
[88] "BGR"
[89] "MDV"
[90] "BGD"
[91] "PRY"
[92] "ALB"
[93] "CYP"
[94] "BRN"
[95] "WA, USA"
[96] "NY, USA"
[97] "CA, USA"
[98] "MA, USA"
[99] "GA, USA"
[100] "CO, USA"
[101] "FL, USA"
[102] "NJ, USA"
[103] "OR, USA"
[104] "TX, USA"
[105] "IL, USA"
[106] "PA, USA"
[107] "IA, USA"
[108] "MD, USA"
[109] "NC, USA"
[110] "SC, USA"
[111] "TN, USA"
[112] "AZ, USA"
[113] "IN, USA"
[114] "KY, USA"
[115] "DC, USA"
[116] "NV, USA"
[117] "NH, USA"
[118] "MN, USA"
[119] "NE, USA"
[120] "OH, USA"
[121] "RI, USA"
[122] "WI, USA"
[123] "CT, USA"
[124] "HI, USA"
[125] "OK, USA"
[126] "UT, USA"
[127] "BFA"
[128] "VAT"
[129] "MNG"
[130] "PAN"
[131] "KS, USA"
[132] "LA, USA"
[133] "MO, USA"
[134] "VT, USA"
[135] "AK, USA"
[136] "AR, USA"
[137] "DE, USA"
[138] "ID, USA"
[139] "ME, USA"
[140] "MI, USA"
[141] "MS, USA"
[142] "MT, USA"
[143] "NM, USA"
[144] "ND, USA"
[145] "SD, USA"
[146] "WV, USA"
[147] "WY, USA"
[148] "Hubei, CHN"
[149] "IRN"
[150] "KOR"
[151] "FRA"
[152] "Guangdong, CHN"
[153] "Henan, CHN"
[154] "Zhejiang, CHN"
[155] "Hunan, CHN"
[156] "Anhui, CHN"
[157] "Jiangxi, CHN"
[158] "Shandong, CHN"
[159] "Jiangsu, CHN"
[160] "Chongqing, CHN"
[161] "Sichuan, CHN"
[162] "Heilongjiang, CHN"
[163] "UK, GBR"
[164] "DNK"
[165] "Beijing, CHN"
[166] "Shanghai, CHN"
[167] "Hebei, CHN"
[168] "Fujian, CHN"
[169] "Guangxi, CHN"
[170] "Shaanxi, CHN"
[171] "Yunnan, CHN"
[172] "Hainan, CHN"
[173] "Guizhou, CHN"
[174] "Tianjin, CHN"
[175] "Shanxi, CHN"
[176] "Gansu, CHN"
[177] "Hong Kong, CHN"
[178] "Liaoning, CHN"
[179] "Jilin, CHN"
[180] "CZE"
[181] "Xinjiang, CHN"
[182] "Inner Mongolia, CHN"
[183] "Ningxia, CHN"
[184] "TWN"
[185] "VNM"
[186] "RUS"
[187] "Qinghai, CHN"
[188] "Macau, CHN"
[189] "MDA"
[190] "BOL"
[191] "Faroe Islands, DNK"
[192] "St Martin, FRA"
[193] "HND"
[194] "Channel Islands, GBR"
[195] "Tibet, CHN"
[196] "COD"
[197] "CIV"
[198] "Saint Barthelemy, FRA"
[199] "JAM"
[200] "REU"
[201] "TUR"
[202] "Gibraltar, GBR"
[203] "Kitsap County, WA, USA"
[204] "Solano County, CA, USA"
[205] "Santa Cruz County, CA, USA"
[206] "Napa County, CA, USA"
[207] "Ventura County, CA, USA"
[208] "Worcester County, MA, USA"
[209] "Gwinnett County, GA, USA"
[210] "DeKalb County, GA, USA"
[211] "Floyd County, KY, USA"
[212] "Fayette County, GA, USA"
[213] "Gregg County, TX, USA"
[214] "Monmouth County, NJ, USA"
[215] "Burlington County, NJ, USA"
[216] "Camden County, NJ, USA"
[217] "Passaic County, NJ, USA"
[218] "Union County, NJ, USA"
[219] "Eagle County, CO, USA"
[220] "Larimer County, CO, USA"
[221] "Arapahoe County, CO, USA"
[222] "Gunnison County, CO, USA"
[223] "Kane County, IL, USA"
[224] "Monroe County, PA, USA"
[225] "Philadelphia County, PA, USA"
[226] "Prince George's County, MD, USA"
[227] "Pottawattamie County, IA, USA"
[228] "Kershaw County, SC, USA"
[229] "Pima County, AZ, USA"
[230] "Noble County, IN, USA"
[231] "Adams County, PA, USA"
[232] "Boone County, IN, USA"
[233] "Dane County, WI, USA"
[234] "Pierce County, WI, USA"
[235] "Cuyahoga County, OH, USA"
[236] "Weber County, UT, USA"
[237] "Bennington County, VT, USA"
[238] "Carver County, MN, USA"
[239] "Charlotte County, FL, USA"
[240] "Cherokee County, GA, USA"
[241] "Collin County, TX, USA"
[242] "Jefferson County, KY, USA"
[243] "Jefferson County, LA, USA"
[244] "Shasta County, CA, USA"
[245] "Spartanburg County, SC, USA"
[246] "Harrison County, KY, USA"
[247] "Johnson County, IA, USA"
[248] "Berkshire County, MA, USA"
[249] "Davidson County, TN, USA"
[250] "Douglas County, OR, USA"
[251] "Fresno County, CA, USA"
[252] "Harford County, MD, USA"
[253] "Hendricks County, IN, USA"
[254] "Hudson County, NJ, USA"
[255] "Johnson County, KS, USA"
[256] "Kittitas County, WA, USA"
[257] "Manatee County, FL, USA"
[258] "Marion County, OR, USA"
[259] "Okaloosa County, FL, USA"
[260] "Polk County, GA, USA"
[261] "Riverside County, CA, USA"
[262] "Shelby County, TN, USA"
[263] "St. Louis County, MO, USA"
[264] "Suffolk County, NY, USA"
[265] "Ulster County, NY, USA"
[266] "Volusia County, FL, USA"
[267] "Rockingham County, NH, USA"
[268] "Montgomery County, PA, USA"
[269] "Alameda County, CA, USA"
[270] "Broward County, FL, USA"
[271] "Lee County, FL, USA"
[272] "Pinal County, AZ, USA"
[273] "Rockland County, NY, USA"
[274] "Saratoga County, NY, USA"
[275] "Charleston County, SC, USA"
[276] "Clark County, WA, USA"
[277] "Cobb County, GA, USA"
[278] "Davis County, UT, USA"
[279] "El Paso County, CO, USA"
[280] "Honolulu County, HI, USA"
[281] "Jackson County, OR, USA"
[282] "Jefferson County, WA, USA"
[283] "Klamath County, OR, USA"
[284] "Madera County, CA, USA"
[285] "Pierce County, WA, USA"
[286] "Tulsa County, OK, USA"
[287] "Douglas County, CO, USA"
[288] "Providence County, RI, USA"
[289] "Chatham County, NC, USA"
[290] "Delaware County, PA, USA"
[291] "Douglas County, NE, USA"
[292] "Fayette County, KY, USA"
[293] "Marion County, IN, USA"
[294] "Middlesex County, MA, USA"
[295] "Nassau County, NY, USA"
[296] "Ramsey County, MN, USA"
[297] "Washoe County, NV, USA"
[298] "Wayne County, PA, USA"
[299] "Yolo County, CA, USA"
[300] "Santa Clara County, CA, USA"
[301] "Clark County, NV, USA"
[302] "Fort Bend County, TX, USA"
[303] "Grant County, WA, USA"
[304] "Santa Rosa County, FL, USA"
[305] "Williamson County, TN, USA"
[306] "New York County, NY, USA"
[307] "Montgomery County, MD, USA"
[308] "Suffolk County, MA, USA"
[309] "Denver County, CO, USA"
[310] "Summit County, CO, USA"
[311] "Bergen County, NJ, USA"
[312] "Harris County, TX, USA"
[313] "San Francisco County, CA, USA"
[314] "Contra Costa County, CA, USA"
[315] "Orange County, CA, USA"
[316] "Norfolk County, MA, USA"
[317] "Maricopa County, AZ, USA"
[318] "Wake County, NC, USA"
[319] "Westchester County, NY, USA"
[320] "Grafton County, NH, USA"
[321] "Hillsborough County, FL, USA"
[322] "Placer County, CA, USA"
[323] "San Mateo County, CA, USA"
[324] "Sonoma County, CA, USA"
[325] "Umatilla County, OR, USA"
[326] "Fulton County, GA, USA"
[327] "Washington County, OR, USA"
[328] "Snohomish County, WA, USA"
[329] "Humboldt County, CA, USA"
[330] "Sacramento County, CA, USA"
[331] "San Diego County, CA, USA"
[332] "San Benito County, CA, USA"
[333] "Los Angeles County, CA, USA"
[334] "King County, WA, USA"
[335] "Cook County, IL, USA"
[336] "Skagit County, WA, USA"
[337] "Thurston County, WA, USA"
[338] "Whatcom County, WA, USA"
[339] "Marin County, CA, USA"
[340] "Calaveras County, CA, USA"
[341] "Stanislaus County, CA, USA"
[342] "Essex County, MA, USA"
[343] "Charlton County, GA, USA"
[344] "Collier County, FL, USA"
[345] "Pinellas County, FL, USA"
[346] "Alachua County, FL, USA"
[347] "Nassau County, FL, USA"
[348] "Pasco County, FL, USA"
[349] "Dallas County, TX, USA"
[350] "Tarrant County, TX, USA"
[351] "Montgomery County, TX, USA"
[352] "Middlesex County, NJ, USA"
[353] "Jefferson County, CO, USA"
[354] "Multnomah County, OR, USA"
[355] "Polk County, OR, USA"
[356] "Deschutes County, OR, USA"
[357] "McHenry County, IL, USA"
[358] "Lake County, IL, USA"
[359] "Bucks County, PA, USA"
[360] "Lancaster County, SC, USA"
[361] "Sullivan County, TN, USA"
[362] "Johnson County, IN, USA"
[363] "Howard County, IN, USA"
[364] "St. Joseph County, IN, USA"
[365] "Knox County, NE, USA"
[366] "Stark County, OH, USA"
[367] "Anoka County, MN, USA"
[368] "Olmsted County, MN, USA"
[369] "Summit County, UT, USA"
[370] "Fairfield County, CT, USA"
[371] "Litchfield County, CT, USA"
[372] "Orleans County, LA, USA"
[373] "Pennington County, SD, USA"
[374] "Beadle County, SD, USA"
[375] "Charles Mix County, SD, USA"
[376] "Davison County, SD, USA"
[377] "Minnehaha County, SD, USA"
[378] "Bon Homme County, SD, USA"
[379] "Socorro County, NM, USA"
[380] "Bernalillo County, NM, USA"
[381] "Oakland County, MI, USA"
[382] "Wayne County, MI, USA"
[383] "New Castle County, DE, USA"
[384] "AUS"
[385] "USA"
[386] "CHN"
[387] "GBR"
[388] "ITA"
[389] "Accomack County, VA, USA"
[390] "Albemarle County, VA, USA"
[391] "Alexandria County, VA, USA"
[392] "Alleghany County, VA, USA"
[393] "Amelia County, VA, USA"
[394] "Amherst County, VA, USA"
[395] "Appomattox County, VA, USA"
[396] "Arlington County, VA, USA"
[397] "Augusta County, VA, USA"
[398] "Bath County, VA, USA"
[399] "Bedford County, VA, USA"
[400] "Bland County, VA, USA"
[401] "Botetourt County, VA, USA"
[402] "Bristol County, VA, USA"
[403] "Brunswick County, VA, USA"
[404] "Buchanan County, VA, USA"
[405] "Buckingham County, VA, USA"
[406] "Buena Vista County, VA, USA"
[407] "Campbell County, VA, USA"
[408] "Caroline County, VA, USA"
[409] "Carroll County, VA, USA"
[410] "Charles City County, VA, USA"
[411] "Charlotte County, VA, USA"
[412] "Charlottesville County, VA, USA"
[413] "Chesapeake County, VA, USA"
[414] "Chesterfield County, VA, USA"
[415] "Clarke County, VA, USA"
[416] "Colonial Heights County, VA, USA"
[417] "Covington County, VA, USA"
[418] "Craig County, VA, USA"
[419] "Culpeper County, VA, USA"
[420] "Cumberland County, VA, USA"
[421] "Danville County, VA, USA"
[422] "Dickenson County, VA, USA"
[423] "Dinwiddie County, VA, USA"
[424] "Emporia County, VA, USA"
[425] "Essex County, VA, USA"
[426] "Fairfax city, VA, USA"
[427] "Fairfax County, VA, USA"
[428] "Falls Church County, VA, USA"
[429] "Fauquier County, VA, USA"
[430] "Floyd County, VA, USA"
[431] "Fluvanna County, VA, USA"
[432] "Franklin city, VA, USA"
[433] "Franklin County, VA, USA"
[434] "Frederick County, VA, USA"
[435] "Fredericksburg County, VA, USA"
[436] "Galax County, VA, USA"
[437] "Giles County, VA, USA"
[438] "Gloucester County, VA, USA"
[439] "Goochland County, VA, USA"
[440] "Grayson County, VA, USA"
[441] "Greene County, VA, USA"
[442] "Greensville County, VA, USA"
[443] "Halifax County, VA, USA"
[444] "Hampton County, VA, USA"
[445] "Hanover County, VA, USA"
[446] "Harrisonburg County, VA, USA"
[447] "Henrico County, VA, USA"
[448] "Henry County, VA, USA"
[449] "Highland County, VA, USA"
[450] "Hopewell County, VA, USA"
[451] "Isle of Wight County, VA, USA"
[452] "James City County, VA, USA"
[453] "King and Queen County, VA, USA"
[454] "King George County, VA, USA"
[455] "King William County, VA, USA"
[456] "Lancaster County, VA, USA"
[457] "Lee County, VA, USA"
[458] "Lexington County, VA, USA"
[459] "Loudoun County, VA, USA"
[460] "Louisa County, VA, USA"
[461] "Lunenburg County, VA, USA"
[462] "Lynchburg County, VA, USA"
[463] "Madison County, VA, USA"
[464] "Manassas County, VA, USA"
[465] "Manassas Park County, VA, USA"
[466] "Martinsville County, VA, USA"
[467] "Mathews County, VA, USA"
[468] "Mecklenburg County, VA, USA"
[469] "Middlesex County, VA, USA"
[470] "Montgomery County, VA, USA"
[471] "Nelson County, VA, USA"
[472] "New Kent County, VA, USA"
[473] "Newport News County, VA, USA"
[474] "Norfolk County, VA, USA"
[475] "Northampton County, VA, USA"
[476] "Northumberland County, VA, USA"
[477] "Norton County, VA, USA"
[478] "Nottoway County, VA, USA"
[479] "Orange County, VA, USA"
[480] "Page County, VA, USA"
[481] "Patrick County, VA, USA"
[482] "Petersburg County, VA, USA"
[483] "Pittsylvania County, VA, USA"
[484] "Poquoson County, VA, USA"
[485] "Portsmouth County, VA, USA"
[486] "Powhatan County, VA, USA"
[487] "Prince Edward County, VA, USA"
[488] "Prince George County, VA, USA"
[489] "Prince William County, VA, USA"
[490] "Pulaski County, VA, USA"
[491] "Radford County, VA, USA"
[492] "Rappahannock County, VA, USA"
[493] "Richmond city, VA, USA"
[494] "Richmond County, VA, USA"
[495] "Roanoke city, VA, USA"
[496] "Roanoke County, VA, USA"
[497] "Rockbridge County, VA, USA"
[498] "Rockingham County, VA, USA"
[499] "Russell County, VA, USA"
[500] "Salem County, VA, USA"
[501] "Scott County, VA, USA"
[502] "Shenandoah County, VA, USA"
[503] "Smyth County, VA, USA"
[504] "Southampton County, VA, USA"
[505] "Spotsylvania County, VA, USA"
[506] "Stafford County, VA, USA"
[507] "Staunton County, VA, USA"
[508] "Suffolk County, VA, USA"
[509] "Surry County, VA, USA"
[510] "Sussex County, VA, USA"
[511] "Tazewell County, VA, USA"
[512] "Virginia Beach County, VA, USA"
[513] "Warren County, VA, USA"
[514] "Washington County, VA, USA"
[515] "Waynesboro County, VA, USA"
[516] "Westmoreland County, VA, USA"
[517] "Williamsburg County, VA, USA"
[518] "Winchester County, VA, USA"
[519] "Wise County, VA, USA"
[520] "Wythe County, VA, USA"
[521] "York County, VA, USA"
[522] "VA, USA"
[523] "Ontario, CAN"
[524] "British Columbia, CAN"
[525] "CAN"
[526] "Bexar County, TX, USA"
[527] "Abruzzo, ITA"
[528] "Basilicata, ITA"
[529] "P.A. Bolzano, ITA"
[530] "Calabria, ITA"
[531] "Campania, ITA"
[532] "Emilia Romagna, ITA"
[533] "Friuli Venezia Giulia, ITA"
[534] "Lazio, ITA"
[535] "Liguria, ITA"
[536] "Lombardia, ITA"
[537] "Marche, ITA"
[538] "Molise, ITA"
[539] "Piemonte, ITA"
[540] "Puglia, ITA"
[541] "Sardegna, ITA"
[542] "Sicilia, ITA"
[543] "Toscana, ITA"
[544] "P.A. Trento, ITA"
[545] "Umbria, ITA"
[546] "Valle d'Aosta, ITA"
[547] "Veneto, ITA"
[548] "Spokane County, WA, USA"
[549] "Salt Lake County, UT, USA"
[550] "Zurich, CHE"
[551] "AndalucÃa, ESP"
[552] "Aragón, ESP"
[553] "Asturias, ESP"
[554] "Baleares, ESP"
[555] "Canarias, ESP"
[556] "Cantabria, ESP"
[557] "Castilla-La Mancha, ESP"
[558] "Castilla y León, ESP"
[559] "Cataluña, ESP"
[560] "Ceuta, ESP"
[561] "C. Valenciana, ESP"
[562] "Extremadura, ESP"
[563] "Galicia, ESP"
[564] "Madrid, ESP"
[565] "Melilla, ESP"
[566] "Murcia, ESP"
[567] "Navarra, ESP"
[568] "PaÃs Vasco, ESP"
[569] "La Rioja, ESP"
[570] "Quebec, CAN"
[571] "New York City, NY, USA"
[572] "(unassigned), RI, USA"
[573] "Walla Walla County, WA, USA"
[574] "Chelan County, WA, USA"
[575] "AG, CHE"
[576] "AI, CHE"
[577] "AR, CHE"
[578] "BE, CHE"
[579] "BL, CHE"
[580] "BS, CHE"
[581] "FR, CHE"
[582] "GE, CHE"
[583] "GL, CHE"
[584] "GR, CHE"
[585] "JU, CHE"
[586] "LU, CHE"
[587] "NE, CHE"
[588] "NW, CHE"
[589] "OW, CHE"
[590] "SG, CHE"
[591] "SH, CHE"
[592] "SO, CHE"
[593] "SZ, CHE"
[594] "TG, CHE"
[595] "TI, CHE"
[596] "UR, CHE"
[597] "VD, CHE"
[598] "VS, CHE"
[599] "ZG, CHE"
[600] "ZH, CHE"
[601] "Washington County, UT, USA"
[602] "District of Columbia, DC, USA"
[603] "Alberta, CAN"
[604] "Floyd County, GA, USA"
[605] "Jefferson Parish, LA, USA"
[606] "Virginia Beach city, VA, USA"
[607] "San Joaquin County, CA, USA"
[608] "Adams County, IN, USA"
[609] "Repatriated Travellers, CAN"
[610] "Jefferson County, AR, USA"
[611] "Pitkin County, CO, USA"
[612] "Miami-Dade County, FL, USA"
[613] "St. Johns County, FL, USA"
[614] "Bartow County, GA, USA"
[615] "Lee County, GA, USA"
[616] "Lowndes County, GA, USA"
[617] "Caddo Parish, LA, USA"
[618] "Baltimore County, MD, USA"
[619] "Forrest County, MS, USA"
[620] "Santa Fe County, NM, USA"
[621] "Monroe County, NY, USA"
[622] "Ward County, ND, USA"
[623] "Linn County, OR, USA"
[624] "Chittenden County, VT, USA"
[625] "Island County, WA, USA"
[626] "Fond du Lac County, WI, USA"
[627] "Waukesha County, WI, USA"
[628] "Sheridan County, WY, USA"
[629] "DE-BB, DEU"
[630] "DE-BE, DEU"
[631] "DE-BW, DEU"
[632] "DE-BY, DEU"
[633] "DE-HE, DEU"
[634] "DE-HB, DEU"
[635] "DE-HH, DEU"
[636] "DE-MV, DEU"
[637] "DE-NI, DEU"
[638] "DE-NW, DEU"
[639] "DE-RP, DEU"
[640] "DE-SL, DEU"
[641] "DE-SN, DEU"
[642] "DE-SH, DEU"
[643] "DE-ST, DEU"
[644] "DE-TH, DEU"
[645] "CUB"
[646] "GUY"
[647] "Australian Capital Territory, AUS"
[648] "KAZ"
[649] "French Polynesia, FRA"
[650] "ETH"
[651] "SDN"
[652] "GIN"
[653] "KEN"
[654] "ATG"
[655] "AL, USA"
[656] "URY"
[657] "GHA"
[658] "PR, USA"
[659] "NAM"
[660] "SYC"
[661] "TTO"
[662] "VEN"
[663] "SWZ"
[664] "GAB"
[665] "GTM"
[666] "MRT"
[667] "RWA"
[668] "LCA"
[669] "VCT"
[670] "SUR"
[671] "French Guiana, FRA"
[672] "GU, USA"
[673] "XKX"
[674] "CAF"
[675] "COG"
[676] "GNQ"
[677] "Mayotte, FRA"
[678] "UZB"
[679] "Guadeloupe, FRA"
[680] "BEN"
[681] "LBR"
[682] "Curacao, NLD"
[683] "SOM"
[684] "TZA"
[685] "VI, USA"
[686] "Cayman Islands, GBR"
[687] "Reunion, FRA"
[688] "BRB"
[689] "MNE"
[690] "KGZ"
[691] "MUS"
[692] "Aruba, NLD"
[693] "ZMB"
[694] "DJI"
[695] "GMB"
[696] "Montserrat, GBR"
[697] "BHS"
[698] "Greenland, DNK"
[699] "New Caledonia, FRA"
[700] "Bermuda, GBR"
[701] "TCD"
[702] "SLV"
[703] "FJI"
[704] "NIC"
[705] "MDG"
[706] "HTI"
[707] "AGO"
[708] "CPV"
[709] "Sint Maarten, NLD"
[710] "NER"
[711] "PNG"
[712] "Isle of Man, GBR"
[713] "ZWE"
[714] "TLS"
[715] "ERI"
[716] "UGA"
[717] "DMA"
[718] "GRD"
[719] "MOZ"
[720] "SYR"
[721] "GLP"
[722] "MYT"
[723] "GRL"
[724] "GUM"
[725] "GGY"
[726] "JEY"
[727] "PRI"
[728] "Saskatchewan, CAN"
[729] "Manitoba, CAN"
[730] "New Brunswick, CAN"
[731] "Anchorage, AK, USA"
[732] "Pulaski County, AR, USA"
[733] "Tulare County, CA, USA"
[734] "Adams County, CO, USA"
[735] "Carroll County, IA, USA"
[736] "Wyandotte County, KS, USA"
[737] "Montgomery County, KY, USA"
[738] "Androscoggin County, ME, USA"
[739] "Ingham County, MI, USA"
[740] "Kent County, MI, USA"
[741] "Montcalm County, MI, USA"
[742] "St. Clair County, MI, USA"
[743] "Washtenaw County, MI, USA"
[744] "Dakota County, MN, USA"
[745] "Hennepin County, MN, USA"
[746] "Stearns County, MN, USA"
[747] "Greene County, MO, USA"
[748] "Cass County, NE, USA"
[749] "Carson City, NV, USA"
[750] "Essex County, NJ, USA"
[751] "Morris County, NJ, USA"
[752] "(unassigned), NJ, USA"
[753] "Cabarrus County, NC, USA"
[754] "Forsyth County, NC, USA"
[755] "Johnston County, NC, USA"
[756] "Mecklenburg County, NC, USA"
[757] "Onslow County, NC, USA"
[758] "Trumbull County, OH, USA"
[759] "Clackamas County, OR, USA"
[760] "Alexandria city, VA, USA"
[761] "James City, VA, USA"
[762] "Columbia County, WA, USA"
[763] "Grays Harbor County, WA, USA"
[764] "Yakima County, WA, USA"
[765] "Baker County, FL, USA"
[766] "Bay County, FL, USA"
[767] "Bradford County, FL, USA"
[768] "Brevard County, FL, USA"
[769] "Calhoun County, FL, USA"
[770] "Citrus County, FL, USA"
[771] "Clay County, FL, USA"
[772] "Columbia County, FL, USA"
[773] "DeSoto County, FL, USA"
[774] "Dixie County, FL, USA"
[775] "Duval County, FL, USA"
[776] "Escambia County, FL, USA"
[777] "Flagler County, FL, USA"
[778] "Franklin County, FL, USA"
[779] "Gadsden County, FL, USA"
[780] "Gilchrist County, FL, USA"
[781] "Glades County, FL, USA"
[782] "Gulf County, FL, USA"
[783] "Hamilton County, FL, USA"
[784] "Hardee County, FL, USA"
[785] "Hendry County, FL, USA"
[786] "Hernando County, FL, USA"
[787] "Highlands County, FL, USA"
[788] "Holmes County, FL, USA"
[789] "Indian River County, FL, USA"
[790] "Jackson County, FL, USA"
[791] "Jefferson County, FL, USA"
[792] "Lafayette County, FL, USA"
[793] "Lake County, FL, USA"
[794] "Leon County, FL, USA"
[795] "Levy County, FL, USA"
[796] "Liberty County, FL, USA"
[797] "Madison County, FL, USA"
[798] "Marion County, FL, USA"
[799] "Martin County, FL, USA"
[800] "Monroe County, FL, USA"
[801] "Okeechobee County, FL, USA"
[802] "Orange County, FL, USA"
[803] "Osceola County, FL, USA"
[804] "Palm Beach County, FL, USA"
[805] "Polk County, FL, USA"
[806] "Putnam County, FL, USA"
[807] "St. Lucie County, FL, USA"
[808] "Sarasota County, FL, USA"
[809] "Seminole County, FL, USA"
[810] "Sumter County, FL, USA"
[811] "Suwannee County, FL, USA"
[812] "Taylor County, FL, USA"
[813] "Union County, FL, USA"
[814] "Wakulla County, FL, USA"
[815] "Walton County, FL, USA"
[816] "Washington County, FL, USA"
[817] "Lafourche Parish, LA, USA"
[818] "Orleans Parish, LA, USA"
[819] "Albany County, NY, USA"
[820] "Allegany County, NY, USA"
[821] "Bronx County, NY, USA"
[822] "Broome County, NY, USA"
[823] "Cattaraugus County, NY, USA"
[824] "Cayuga County, NY, USA"
[825] "Chautauqua County, NY, USA"
[826] "Chemung County, NY, USA"
[827] "Chenango County, NY, USA"
[828] "Clinton County, NY, USA"
[829] "Columbia County, NY, USA"
[830] "Cortland County, NY, USA"
[831] "Delaware County, NY, USA"
[832] "Dutchess County, NY, USA"
[833] "Erie County, NY, USA"
[834] "Essex County, NY, USA"
[835] "Franklin County, NY, USA"
[836] "Fulton County, NY, USA"
[837] "Genesee County, NY, USA"
[838] "Greene County, NY, USA"
[839] "Hamilton County, NY, USA"
[840] "Herkimer County, NY, USA"
[841] "Jefferson County, NY, USA"
[842] "Kings County, NY, USA"
[843] "Lewis County, NY, USA"
[844] "Livingston County, NY, USA"
[845] "Madison County, NY, USA"
[846] "Montgomery County, NY, USA"
[847] "Niagara County, NY, USA"
[848] "Oneida County, NY, USA"
[849] "Onondaga County, NY, USA"
[850] "Ontario County, NY, USA"
[851] "Orange County, NY, USA"
[852] "Orleans County, NY, USA"
[853] "Oswego County, NY, USA"
[854] "Otsego County, NY, USA"
[855] "Putnam County, NY, USA"
[856] "Queens County, NY, USA"
[857] "Rensselaer County, NY, USA"
[858] "Richmond County, NY, USA"
[859] "St. Lawrence County, NY, USA"
[860] "Schenectady County, NY, USA"
[861] "Schoharie County, NY, USA"
[862] "Schuyler County, NY, USA"
[863] "Seneca County, NY, USA"
[864] "Steuben County, NY, USA"
[865] "Sullivan County, NY, USA"
[866] "Tioga County, NY, USA"
[867] "Tompkins County, NY, USA"
[868] "Warren County, NY, USA"
[869] "Washington County, NY, USA"
[870] "Wayne County, NY, USA"
[871] "Wyoming County, NY, USA"
[872] "Yates County, NY, USA"
[873] "Allegheny County, PA, USA"
[874] "Armstrong County, PA, USA"
[875] "Beaver County, PA, USA"
[876] "Bedford County, PA, USA"
[877] "Berks County, PA, USA"
[878] "Blair County, PA, USA"
[879] "Bradford County, PA, USA"
[880] "Butler County, PA, USA"
[881] "Cambria County, PA, USA"
[882] "Cameron County, PA, USA"
[883] "Carbon County, PA, USA"
[884] "Centre County, PA, USA"
[885] "Chester County, PA, USA"
[886] "Clarion County, PA, USA"
[887] "Clearfield County, PA, USA"
[888] "Clinton County, PA, USA"
[889] "Columbia County, PA, USA"
[890] "Crawford County, PA, USA"
[891] "Cumberland County, PA, USA"
[892] "Dauphin County, PA, USA"
[893] "Elk County, PA, USA"
[894] "Erie County, PA, USA"
[895] "Fayette County, PA, USA"
[896] "Forest County, PA, USA"
[897] "Franklin County, PA, USA"
[898] "Fulton County, PA, USA"
[899] "Greene County, PA, USA"
[900] "Huntingdon County, PA, USA"
[901] "Indiana County, PA, USA"
[902] "Jefferson County, PA, USA"
[903] "Juniata County, PA, USA"
[904] "Lackawanna County, PA, USA"
[905] "Lancaster County, PA, USA"
[906] "Lawrence County, PA, USA"
[907] "Lebanon County, PA, USA"
[908] "Lehigh County, PA, USA"
[909] "Luzerne County, PA, USA"
[910] "Lycoming County, PA, USA"
[911] "McKean County, PA, USA"
[912] "Mercer County, PA, USA"
[913] "Mifflin County, PA, USA"
[914] "Montour County, PA, USA"
[915] "Northampton County, PA, USA"
[916] "Northumberland County, PA, USA"
[917] "Perry County, PA, USA"
[918] "Pike County, PA, USA"
[919] "Potter County, PA, USA"
[920] "Schuylkill County, PA, USA"
[921] "Snyder County, PA, USA"
[922] "Somerset County, PA, USA"
[923] "Sullivan County, PA, USA"
[924] "Susquehanna County, PA, USA"
[925] "Tioga County, PA, USA"
[926] "Union County, PA, USA"
[927] "Venango County, PA, USA"
[928] "Warren County, PA, USA"
[929] "Washington County, PA, USA"
[930] "Westmoreland County, PA, USA"
[931] "Wyoming County, PA, USA"
[932] "York County, PA, USA"
[933] "(unassigned), TN, USA"
[934] "Anderson County, TN, USA"
[935] "Bedford County, TN, USA"
[936] "Benton County, TN, USA"
[937] "Bledsoe County, TN, USA"
[938] "Blount County, TN, USA"
[939] "Bradley County, TN, USA"
[940] "Campbell County, TN, USA"
[941] "Cannon County, TN, USA"
[942] "Carroll County, TN, USA"
[943] "Carter County, TN, USA"
[944] "Cheatham County, TN, USA"
[945] "Chester County, TN, USA"
[946] "Claiborne County, TN, USA"
[947] "Clay County, TN, USA"
[948] "Cocke County, TN, USA"
[949] "Coffee County, TN, USA"
[950] "Crockett County, TN, USA"
[951] "Cumberland County, TN, USA"
[952] "Decatur County, TN, USA"
[953] "DeKalb County, TN, USA"
[954] "Dickson County, TN, USA"
[955] "Dyer County, TN, USA"
[956] "Fayette County, TN, USA"
[957] "Fentress County, TN, USA"
[958] "Franklin County, TN, USA"
[959] "Gibson County, TN, USA"
[960] "Giles County, TN, USA"
[961] "Grainger County, TN, USA"
[962] "Greene County, TN, USA"
[963] "Grundy County, TN, USA"
[964] "Hamblen County, TN, USA"
[965] "Hamilton County, TN, USA"
[966] "Hancock County, TN, USA"
[967] "Hardeman County, TN, USA"
[968] "Hardin County, TN, USA"
[969] "Hawkins County, TN, USA"
[970] "Haywood County, TN, USA"
[971] "Henderson County, TN, USA"
[972] "Henry County, TN, USA"
[973] "Hickman County, TN, USA"
[974] "Houston County, TN, USA"
[975] "Humphreys County, TN, USA"
[976] "Jackson County, TN, USA"
[977] "Jefferson County, TN, USA"
[978] "Johnson County, TN, USA"
[979] "Knox County, TN, USA"
[980] "Lake County, TN, USA"
[981] "Lauderdale County, TN, USA"
[982] "Lawrence County, TN, USA"
[983] "Lewis County, TN, USA"
[984] "Lincoln County, TN, USA"
[985] "Loudon County, TN, USA"
[986] "Macon County, TN, USA"
[987] "Madison County, TN, USA"
[988] "Marion County, TN, USA"
[989] "Marshall County, TN, USA"
[990] "Maury County, TN, USA"
[991] "McMinn County, TN, USA"
[992] "McNairy County, TN, USA"
[993] "Meigs County, TN, USA"
[994] "Monroe County, TN, USA"
[995] "Montgomery County, TN, USA"
[996] "Moore County, TN, USA"
[997] "Morgan County, TN, USA"
[998] "Obion County, TN, USA"
[999] "Overton County, TN, USA"
[1000] "Perry County, TN, USA"
[ reached getOption("max.print") -- omitted 2815 entries ]
library(tidyverse)
Registered S3 method overwritten by 'dplyr':
method from
print.rowwise_df
[30m── [1mAttaching packages[22m ─────────────────────────────────── tidyverse 1.2.1 ──[39m
[30m[32m✓[30m [34mggplot2[30m 3.2.1 [32m✓[30m [34mpurrr [30m 0.3.3
[32m✓[30m [34mtibble [30m 2.1.3 [32m✓[30m [34mdplyr [30m 0.8.5
[32m✓[30m [34mtidyr [30m 1.0.2 [32m✓[30m [34mstringr[30m 1.4.0
[32m✓[30m [34mreadr [30m 1.3.1 [32m✓[30m [34mforcats[30m 0.4.0[39m
[30m── [1mConflicts[22m ────────────────────────────────────── tidyverse_conflicts() ──
[31mx[30m [34mdplyr[30m::[32mfilter()[30m masks [34mstats[30m::filter()
[31mx[30m [34mpurrr[30m::[32mflatten()[30m masks [34mjsonlite[30m::flatten()
[31mx[30m [34mdplyr[30m::[32mlag()[30m masks [34mstats[30m::lag()[39m
ita <- cds_data[["ITA"]]
names(ita)
[1] "dates" "country" "url" "aggregate" "rating"
[6] "coordinates" "tz" "featureId" "population"
cds_data %>% head(2)
sapply(cds_data, "[[", "dates") %>% unlist() %>% names() %>% gsub("^.*\\.", "", .) %>% table()
sapply(cds_data, names) %>% unlist %>% table %>% sort
library(tidyverse)
library(jsonlite)
library(lubridate)
cds_data <- jsonlite::fromJSON(
"https://coronadatascraper.com/timeseries-byLocation.json")
valueOrNA <- function(x) {
ifelse(!is.null(x), x, NA)
}
getTsMax <- function(cds_loc, metric) {
suppressWarnings(max(as.numeric(sapply(
Filter(function(y) {!is.null(y[[metric]])}, cds_loc$dates), "[[", metric))))
}
names(cds_data) %>%
lapply(FUN = function(x) {
list(
name = x,
country = valueOrNA(cds_data[[x]]$country),
aggregate = valueOrNA(cds_data[[x]]$aggregate),
state = valueOrNA(cds_data[[x]]$state),
population = valueOrNA(cds_data[[x]]$population),
county = valueOrNA(cds_data[[x]]$county),
city = valueOrNA(cds_data[[x]]$city),
max_deaths = getTsMax(cds_data[[x]], "deaths"),
max_cases = getTsMax(cds_data[[x]], "cases"),
max_tested = getTsMax(cds_data[[x]], "tested"),
max_active = getTsMax(cds_data[[x]], "active"),
max_recovered = getTsMax(cds_data[[x]], "recovered"),
# deaths_ts = lapply(names(cds_data[[x]]$dates), FUN = function(x) {
# c(x = valueOrNA(cds_data[[x]]$dates[[x]]$deaths))
# }),
date = list(names(cds_data[[x]]$dates)),
ts_values = list(cds_data[[x]]$dates))
}) %>%
bind_rows() %>%
mutate(
max_deaths = na_if(max_deaths, -Inf),
max_cases = na_if(max_cases, -Inf),
max_tested = na_if(max_tested, -Inf),
max_active = na_if(max_active, -Inf),
max_recovered = na_if(max_recovered, -Inf)) %>%
mutate(
max_deaths_per_capita = max_deaths / population * 1e6,
max_tested_per_capita = max_tested / population * 1e6,
max_recovered_per_capita = max_recovered / population * 1e6,
max_positive_test_rate = max_cases / max_tested) %>%
unnest(c(date, ts_values)) %>%
mutate(
date = ymd(date),
deaths = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$deaths)) })),
active = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$active)) })),
cases = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$cases)) })),
recovered = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$recovered)) })),
tested = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$tested)) })),
growthFactor = unlist(sapply(ts_values, FUN = function(x) {
return(valueOrNA(x$growthFactor)) })),
cfr = deaths / cases,
ptr = cases / tested,
rr = recovered / cases
) %>%
select(-ts_values) %>%
gather(stat, value, deaths, active, cases, recovered, tested,
growthFactor, cfr, ptr, rr) %>%
mutate(popM = value / population * 1e6) -> cds
read_csv(url("https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv")) %>%
mutate(cfr = deaths / cases, county = paste(county, "County")) %>%
mutate(state = unlist(sapply(state, FUN = function(x) { unlist(valueOrNA(state.abb[which(state.name == x)])) }))) %>%
gather(stat, total, cases, deaths, cfr) %>%
select(-fips) %>%
unite(county, county, state, sep = ", ") %>%
mutate(county = paste0(county, ", USA")) %>%
left_join(cds %>% filter(country == "USA" & aggregate == "county") %>% select(name, population) %>% unique(), by = c("county" = "name")) %>%
mutate(popM = total / population * 1e6) %>%
group_by(county) %>%
mutate(max_deaths = max(total[stat == "deaths"], na.rm = TRUE)) %>%
ungroup() %>%
filter(max_deaths >= 5) %>%
genPlotComps(geo_level = "county")
Parsed with column specification:
cols(
date = [34mcol_date(format = "")[39m,
county = [31mcol_character()[39m,
state = [31mcol_character()[39m,
fips = [31mcol_character()[39m,
cases = [32mcol_double()[39m,
deaths = [32mcol_double()[39m
)
attributes are not identical across measure variables;
they will be droppedDon't know how to automatically pick scale for object of type difftime. Defaulting to continuous.